object DataModule1: TDataModule1
  OldCreateOrder = False
  Height = 544
  Width = 769
  object Conexao: TIBDatabase
    Connected = True
    DatabaseName = '127.0.0.1:C:\DB\DB_HOTEL.GDB'
    Params.Strings = (
      'user_name=sysdba'
      'password=masterkey'
      'lc_ctype=win1252')
    LoginPrompt = False
    Left = 32
    Top = 40
  end
  object Transacao: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 32
    Top = 112
  end
  object IB_HOTEIS: TIBTable
    Database = Conexao
    Transaction = Transacao
    BeforePost = IB_HOTEISBeforePost
    Active = True
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'HOTNOME'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'HOTENDERECO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'HOTLOGRADOURO'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'HOTCNPJ'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY1'
        Fields = 'HOTCODIGO'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'HOTEIS'
    Left = 32
    Top = 184
    object IB_HOTEISHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_HOTEISHOTNOME: TIBStringField
      FieldName = 'HOTNOME'
      Size = 60
    end
    object IB_HOTEISHOTENDERECO: TIBStringField
      FieldName = 'HOTENDERECO'
      Size = 60
    end
    object IB_HOTEISHOTLOGRADOURO: TIBStringField
      FieldName = 'HOTLOGRADOURO'
      Size = 10
    end
    object IB_HOTEISHOTCNPJ: TIntegerField
      FieldName = 'HOTCNPJ'
    end
  end
  object IB_FORMA_PAGAMENTO: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 144
    Top = 112
  end
  object IB_AUDITORIOS: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 256
    Top = 112
  end
  object IB_AUDITORIOS_RESERVA: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 376
    Top = 112
  end
  object IB_CLIENTES: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 496
    Top = 112
  end
  object IB_FORMAPAGAMENTO: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'FORPAGCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FORPAGDESCRICAO'
        DataType = ftWideString
        Size = 40
      end
      item
        Name = 'FORPAGNUMVEZES'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY19'
        Fields = 'FORPAGCODIGO'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'FORMAS_PAGAMENTO'
    Left = 144
    Top = 184
    object IB_FORMAPAGAMENTOFORPAGCODIGO: TIntegerField
      FieldName = 'FORPAGCODIGO'
      Required = True
    end
    object IB_FORMAPAGAMENTOFORPAGDESCRICAO: TIBStringField
      FieldName = 'FORPAGDESCRICAO'
      Size = 40
    end
    object IB_FORMAPAGAMENTOFORPAGNUMVEZES: TIntegerField
      FieldName = 'FORPAGNUMVEZES'
    end
  end
  object IB_AUDITORIO: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'AUDCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'AUDDESCRICAO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'AUDNUMMAXPESSOAS'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY9'
        Fields = 'HOTCODIGO;AUDCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN24'
        Fields = 'HOTCODIGO'
      end>
    StoreDefs = True
    TableName = 'AUDITORIOS'
    Left = 256
    Top = 184
    object IB_AUDITORIOHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_AUDITORIOAUDCODIGO: TIntegerField
      FieldName = 'AUDCODIGO'
      Required = True
    end
    object IB_AUDITORIOAUDDESCRICAO: TIBStringField
      FieldName = 'AUDDESCRICAO'
      Size = 60
    end
    object IB_AUDITORIOAUDNUMMAXPESSOAS: TIntegerField
      FieldName = 'AUDNUMMAXPESSOAS'
    end
  end
  object IB_AUDITORIOSRESERVA: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'AUDCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'RESAUDCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'RESAUDVALOR'
        DataType = ftBCD
        Precision = 18
        Size = 2
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY18'
        Fields = 'HOTCODIGO;AUDCODIGO;RESAUDCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN33'
        Fields = 'HOTCODIGO;AUDCODIGO'
      end
      item
        Name = 'RDB$FOREIGN40'
        Fields = 'RESAUDCODIGO'
      end>
    StoreDefs = True
    TableName = 'AUDITORIOS_RESERVA'
    Left = 376
    Top = 184
    object IB_AUDITORIOSRESERVAHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_AUDITORIOSRESERVAAUDCODIGO: TIntegerField
      FieldName = 'AUDCODIGO'
      Required = True
    end
    object IB_AUDITORIOSRESERVARESAUDCODIGO: TIntegerField
      FieldName = 'RESAUDCODIGO'
      Required = True
    end
    object IB_AUDITORIOSRESERVARESAUDVALOR: TIBBCDField
      FieldName = 'RESAUDVALOR'
      Precision = 18
      Size = 2
    end
  end
  object IB_CLIENTE: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'CLICODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CLINOME'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'CLIENDERECO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'CLICPF'
        DataType = ftWideString
        Size = 15
      end
      item
        Name = 'CLILOGRADOURO'
        DataType = ftWideString
        Size = 10
      end
      item
        Name = 'CLITELEFONE'
        DataType = ftWideString
        Size = 15
      end
      item
        Name = 'CLIRG'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'CLIORGAOEXPEDIDOR'
        Attributes = [faFixed]
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'CLIEMAIL'
        DataType = ftWideString
        Size = 50
      end
      item
        Name = 'CLIDESDE'
        DataType = ftDate
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY6'
        Fields = 'CLICODIGO'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'CLIENTES'
    Left = 496
    Top = 184
    object IB_CLIENTECLICODIGO: TIntegerField
      FieldName = 'CLICODIGO'
      Required = True
    end
    object IB_CLIENTECLINOME: TIBStringField
      FieldName = 'CLINOME'
      Size = 60
    end
    object IB_CLIENTECLIENDERECO: TIBStringField
      FieldName = 'CLIENDERECO'
      Size = 60
    end
    object IB_CLIENTECLICPF: TIBStringField
      FieldName = 'CLICPF'
      Size = 15
    end
    object IB_CLIENTECLILOGRADOURO: TIBStringField
      FieldName = 'CLILOGRADOURO'
      Size = 10
    end
    object IB_CLIENTECLITELEFONE: TIBStringField
      FieldName = 'CLITELEFONE'
      Size = 15
    end
    object IB_CLIENTECLIRG: TIBStringField
      FieldName = 'CLIRG'
    end
    object IB_CLIENTECLIORGAOEXPEDIDOR: TIBStringField
      FieldName = 'CLIORGAOEXPEDIDOR'
    end
    object IB_CLIENTECLIEMAIL: TIBStringField
      FieldName = 'CLIEMAIL'
      Size = 50
    end
    object IB_CLIENTECLIDESDE: TDateField
      FieldName = 'CLIDESDE'
    end
  end
  object IB_GRUPO: TIBTable
    Database = Conexao
    Transaction = Transacao
    Active = True
    FieldDefs = <
      item
        Name = 'GRUCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'GRUNOME'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'GRUTIPO'
        Attributes = [faFixed]
        DataType = ftWideString
        Size = 1
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY21'
        Fields = 'GRUCODIGO'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'GRUPOS'
    Left = 680
    Top = 184
    object IB_GRUPOGRUCODIGO: TIntegerField
      FieldName = 'GRUCODIGO'
      Required = True
    end
    object IB_GRUPOGRUNOME: TIBStringField
      FieldName = 'GRUNOME'
    end
    object IB_GRUPOGRUTIPO: TIBStringField
      FieldName = 'GRUTIPO'
      Size = 1
    end
  end
  object IN_FUNCIONARIO: TIBTable
    Database = Conexao
    Transaction = Transacao
    Active = True
    FieldDefs = <
      item
        Name = 'FUNCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FUNNOME'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'FUNENDERECO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'FUNSALARIO'
        DataType = ftBCD
        Precision = 18
        Size = 2
      end
      item
        Name = 'FUNCPF'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'FUNLOGRADOURO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'FUNFONE'
        DataType = ftWideString
        Size = 14
      end
      item
        Name = 'FUNRG'
        DataType = ftWideString
        Size = 11
      end
      item
        Name = 'FUNORGAOEXPEDIDOR'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'FUNEMAIL'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'FUNDESDE'
        DataType = ftDate
      end
      item
        Name = 'FUNUSUARIO'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'FUNSENHA'
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'GRUCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY16'
        Fields = 'FUNCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN25'
        Fields = 'HOTCODIGO'
      end
      item
        Name = 'RDB$FOREIGN44'
        Fields = 'GRUCODIGO'
      end>
    StoreDefs = True
    TableName = 'FUNCIONARIOS'
    Left = 584
    Top = 184
    object IN_FUNCIONARIOFUNCODIGO: TIntegerField
      DisplayWidth = 15
      FieldName = 'FUNCODIGO'
      Required = True
    end
    object IN_FUNCIONARIOHOTCODIGO: TIntegerField
      DisplayWidth = 17
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IN_FUNCIONARIONomeHotel: TStringField
      DisplayWidth = 30
      FieldKind = fkLookup
      FieldName = 'NomeHotel'
      LookupDataSet = IB_HOTEIS
      LookupKeyFields = 'HOTCODIGO'
      LookupResultField = 'HOTNOME'
      KeyFields = 'HOTCODIGO'
      Size = 50
      Lookup = True
    end
    object IN_FUNCIONARIOFUNNOME: TIBStringField
      DisplayWidth = 39
      FieldName = 'FUNNOME'
      Size = 60
    end
    object IN_FUNCIONARIOFUNENDERECO: TIBStringField
      DisplayWidth = 87
      FieldName = 'FUNENDERECO'
      Size = 60
    end
    object IN_FUNCIONARIOFUNSALARIO: TIBBCDField
      DisplayWidth = 28
      FieldName = 'FUNSALARIO'
      Precision = 18
      Size = 2
    end
    object IN_FUNCIONARIOFUNCPF: TIBStringField
      DisplayWidth = 87
      FieldName = 'FUNCPF'
      Size = 60
    end
    object IN_FUNCIONARIOFUNLOGRADOURO: TIBStringField
      DisplayWidth = 87
      FieldName = 'FUNLOGRADOURO'
      Size = 60
    end
    object IN_FUNCIONARIOFUNFONE: TIBStringField
      DisplayWidth = 21
      FieldName = 'FUNFONE'
      Size = 14
    end
    object IN_FUNCIONARIOFUNRG: TIBStringField
      DisplayWidth = 16
      FieldName = 'FUNRG'
      Size = 11
    end
    object IN_FUNCIONARIOFUNORGAOEXPEDIDOR: TIBStringField
      DisplayWidth = 29
      FieldName = 'FUNORGAOEXPEDIDOR'
    end
    object IN_FUNCIONARIOFUNEMAIL: TIBStringField
      DisplayWidth = 87
      FieldName = 'FUNEMAIL'
      Size = 60
    end
    object IN_FUNCIONARIOFUNDESDE: TDateField
      DisplayWidth = 15
      FieldName = 'FUNDESDE'
    end
    object IN_FUNCIONARIOFUNUSUARIO: TIBStringField
      DisplayWidth = 29
      FieldName = 'FUNUSUARIO'
    end
    object IN_FUNCIONARIOFUNSENHA: TIBStringField
      DisplayWidth = 29
      FieldName = 'FUNSENHA'
    end
    object IN_FUNCIONARIOGRUCODIGO: TIntegerField
      DisplayWidth = 16
      FieldName = 'GRUCODIGO'
      Required = True
    end
    object IN_FUNCIONARIOGrupoNome: TStringField
      FieldKind = fkLookup
      FieldName = 'GrupoNome'
      LookupDataSet = IB_GRUPO
      LookupKeyFields = 'GRUCODIGO'
      LookupResultField = 'GRUNOME'
      KeyFields = 'GRUCODIGO'
      Size = 50
      Lookup = True
    end
  end
  object IB_ITEN: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'ITECODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'TIPITECODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ITEDESCRICAO'
        DataType = ftWideString
        Size = 60
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY10'
        Fields = 'ITECODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN36'
        Fields = 'TIPITECODIGO'
      end>
    StoreDefs = True
    TableName = 'ITENS'
    Left = 32
    Top = 312
    object IB_ITENITECODIGO: TIntegerField
      FieldName = 'ITECODIGO'
      Required = True
    end
    object IB_ITENTIPITECODIGO: TIntegerField
      FieldName = 'TIPITECODIGO'
      Required = True
    end
    object IB_ITENITEDESCRICAO: TIBStringField
      FieldName = 'ITEDESCRICAO'
      Size = 60
    end
  end
  object IB_ITENSAUDITORIOS: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ITECODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'AUDCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ITEAUDCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ITEAUDNUMITENS'
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY15'
        Fields = 'HOTCODIGO;ITECODIGO;AUDCODIGO;ITEAUDCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN32'
        Fields = 'HOTCODIGO;AUDCODIGO'
      end
      item
        Name = 'RDB$FOREIGN35'
        Fields = 'ITECODIGO'
      end>
    StoreDefs = True
    TableName = 'ITENS_AUDITORIO'
    Left = 120
    Top = 312
    object IB_ITENSAUDITORIOSHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_ITENSAUDITORIOSITECODIGO: TIntegerField
      FieldName = 'ITECODIGO'
      Required = True
    end
    object IB_ITENSAUDITORIOSAUDCODIGO: TIntegerField
      FieldName = 'AUDCODIGO'
      Required = True
    end
    object IB_ITENSAUDITORIOSITEAUDCODIGO: TIntegerField
      FieldName = 'ITEAUDCODIGO'
      Required = True
    end
    object IB_ITENSAUDITORIOSITEAUDNUMITENS: TIntegerField
      FieldName = 'ITEAUDNUMITENS'
    end
  end
  object IB_OBJETO: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'OBJNOME'
        Attributes = [faRequired]
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'OBJDESCRICAO'
        DataType = ftWideString
        Size = 25
      end
      item
        Name = 'OBJGRUTEMACESSO'
        Attributes = [faFixed]
        DataType = ftWideString
        Size = 1
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY20'
        Fields = 'OBJNOME'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'OBJETOS'
    Left = 336
    Top = 312
    object IB_OBJETOOBJNOME: TIBStringField
      FieldName = 'OBJNOME'
      Required = True
    end
    object IB_OBJETOOBJDESCRICAO: TIBStringField
      FieldName = 'OBJDESCRICAO'
      Size = 25
    end
  end
  object IB_ITENSQUARTO: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'QUACODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ITECODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'ITEQUACODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY12'
        Fields = 'HOTCODIGO;QUACODIGO;ITECODIGO;ITEQUACODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN29'
        Fields = 'HOTCODIGO;QUACODIGO'
      end
      item
        Name = 'RDB$FOREIGN34'
        Fields = 'ITECODIGO'
      end>
    StoreDefs = True
    TableName = 'ITENS_QUARTO'
    Left = 240
    Top = 312
    object IB_ITENSQUARTOHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_ITENSQUARTOQUACODIGO: TIntegerField
      FieldName = 'QUACODIGO'
      Required = True
    end
    object IB_ITENSQUARTOITECODIGO: TIntegerField
      FieldName = 'ITECODIGO'
      Required = True
    end
    object IB_ITENSQUARTOITEQUACODIGO: TIntegerField
      FieldName = 'ITEQUACODIGO'
      Required = True
    end
  end
  object IB_FUNCIONARIOS: TIBTransaction
    DefaultDatabase = Conexao
    Left = 584
    Top = 112
  end
  object IB_GRUPOS: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 680
    Top = 112
  end
  object IB_ITENS: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 32
    Top = 248
  end
  object IB_INTES_AUDITORIO: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 120
    Top = 248
  end
  object IB_ITENS_QUARTO: TIBTransaction
    Active = True
    DefaultDatabase = Conexao
    Left = 240
    Top = 248
  end
  object IB_OBJETOS: TIBTransaction
    Left = 336
    Top = 248
  end
  object IB_OBJETOS_GRUPO: TIBTransaction
    Left = 432
    Top = 248
  end
  object IB_QUARTOS: TIBTransaction
    Left = 536
    Top = 248
  end
  object IB_QUARTOS_RESERVA: TIBTransaction
    Left = 648
    Top = 248
  end
  object IB_RESERVAS_AUDITORIOS: TIBTransaction
    Left = 32
    Top = 384
  end
  object IB_RESERVAS_QUARTOS: TIBTransaction
    Left = 176
    Top = 384
  end
  object IB_TIPOS_ITENS: TIBTransaction
    Left = 288
    Top = 384
  end
  object IB_TIPOS_QUARTOS: TIBTransaction
    Left = 392
    Top = 384
  end
  object IB_OBJETOSGRUPO: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'OBJNOME'
        Attributes = [faRequired]
        DataType = ftWideString
        Size = 20
      end
      item
        Name = 'GRUCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY22'
        Fields = 'OBJNOME;GRUCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN43'
        Fields = 'OBJNOME'
      end
      item
        Name = 'RDB$FOREIGN45'
        Fields = 'GRUCODIGO'
      end>
    StoreDefs = True
    TableName = 'OBJETOS_GRUPO'
    Left = 432
    Top = 312
    object IB_OBJETOSGRUPOOBJNOME: TIBStringField
      FieldName = 'OBJNOME'
      Required = True
    end
    object IB_OBJETOSGRUPOGRUCODIGO: TIntegerField
      FieldName = 'GRUCODIGO'
      Required = True
    end
  end
  object IB_QUARTO: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'QUACODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'TIPQCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'QUADESCRICAO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'QUAVALOR'
        DataType = ftBCD
        Precision = 18
        Size = 2
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY7'
        Fields = 'HOTCODIGO;QUACODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN23'
        Fields = 'HOTCODIGO'
      end
      item
        Name = 'RDB$FOREIGN31'
        Fields = 'TIPQCODIGO'
      end>
    StoreDefs = True
    TableName = 'QUARTOS'
    Left = 536
    Top = 312
    object IB_QUARTOHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_QUARTOQUACODIGO: TIntegerField
      FieldName = 'QUACODIGO'
      Required = True
    end
    object IB_QUARTOTIPQCODIGO: TIntegerField
      FieldName = 'TIPQCODIGO'
      Required = True
    end
    object IB_QUARTOQUADESCRICAO: TIBStringField
      FieldName = 'QUADESCRICAO'
      Size = 60
    end
    object IB_QUARTOQUAVALOR: TIBBCDField
      FieldName = 'QUAVALOR'
      Precision = 18
      Size = 2
    end
  end
  object IB_QUARTOSRESERVA: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'QUACODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'RESCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'RESVALOR'
        DataType = ftBCD
        Precision = 18
        Size = 2
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY14'
        Fields = 'HOTCODIGO;QUACODIGO;RESCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN30'
        Fields = 'HOTCODIGO;QUACODIGO'
      end
      item
        Name = 'RDB$FOREIGN37'
        Fields = 'RESCODIGO'
      end>
    StoreDefs = True
    TableName = 'QUARTOS_RESERVA'
    Left = 648
    Top = 312
    object IB_QUARTOSRESERVAHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_QUARTOSRESERVAQUACODIGO: TIntegerField
      FieldName = 'QUACODIGO'
      Required = True
    end
    object IB_QUARTOSRESERVARESCODIGO: TIntegerField
      FieldName = 'RESCODIGO'
      Required = True
    end
    object IB_QUARTOSRESERVARESVALOR: TIBBCDField
      FieldName = 'RESVALOR'
      Precision = 18
      Size = 2
    end
  end
  object IB_RESERVASAUDITORIOS: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'RESAUDCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FUNCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CLICODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FORPAGCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'RESAUDDATA'
        DataType = ftDate
      end
      item
        Name = 'RESAUDDTAINICIO'
        DataType = ftDate
      end
      item
        Name = 'RESAUDDTAFIM'
        DataType = ftDate
      end
      item
        Name = 'RESAUDSTATUS'
        Attributes = [faFixed]
        DataType = ftWideString
        Size = 1
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY17'
        Fields = 'RESAUDCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN28'
        Fields = 'CLICODIGO'
      end
      item
        Name = 'RDB$FOREIGN39'
        Fields = 'FUNCODIGO'
      end
      item
        Name = 'RDB$FOREIGN42'
        Fields = 'FORPAGCODIGO'
      end>
    StoreDefs = True
    TableName = 'RESERVAS_AUDITORIOS'
    Left = 32
    Top = 448
    object IB_RESERVASAUDITORIOSRESAUDCODIGO: TIntegerField
      FieldName = 'RESAUDCODIGO'
      Required = True
    end
    object IB_RESERVASAUDITORIOSFUNCODIGO: TIntegerField
      FieldName = 'FUNCODIGO'
      Required = True
    end
    object IB_RESERVASAUDITORIOSCLICODIGO: TIntegerField
      FieldName = 'CLICODIGO'
      Required = True
    end
    object IB_RESERVASAUDITORIOSFORPAGCODIGO: TIntegerField
      FieldName = 'FORPAGCODIGO'
      Required = True
    end
    object IB_RESERVASAUDITORIOSRESAUDDATA: TDateField
      FieldName = 'RESAUDDATA'
    end
    object IB_RESERVASAUDITORIOSRESAUDDTAINICIO: TDateField
      FieldName = 'RESAUDDTAINICIO'
    end
    object IB_RESERVASAUDITORIOSRESAUDDTAFIM: TDateField
      FieldName = 'RESAUDDTAFIM'
    end
    object IB_RESERVASAUDITORIOSRESAUDSTATUS: TIBStringField
      FieldName = 'RESAUDSTATUS'
      Size = 1
    end
  end
  object IB_RESERVASQUARTOS: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'RESCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FORPAGCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'HOTCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'CLICODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'FUNCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'RESDESCRICAO'
        DataType = ftWideString
        Size = 60
      end
      item
        Name = 'RESDATA'
        DataType = ftDate
      end
      item
        Name = 'RESDTAINICIO'
        DataType = ftDate
      end
      item
        Name = 'RESDTAFIM'
        DataType = ftDate
      end
      item
        Name = 'RESSTATUS'
        Attributes = [faFixed]
        DataType = ftWideString
        Size = 1
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY13'
        Fields = 'RESCODIGO'
        Options = [ixPrimary, ixUnique]
      end
      item
        Name = 'RDB$FOREIGN26'
        Fields = 'HOTCODIGO'
      end
      item
        Name = 'RDB$FOREIGN27'
        Fields = 'CLICODIGO'
      end
      item
        Name = 'RDB$FOREIGN38'
        Fields = 'FUNCODIGO'
      end
      item
        Name = 'RDB$FOREIGN41'
        Fields = 'FORPAGCODIGO'
      end>
    StoreDefs = True
    TableName = 'RESERVAS_QUARTOS'
    Left = 176
    Top = 448
    object IB_RESERVASQUARTOSRESCODIGO: TIntegerField
      FieldName = 'RESCODIGO'
      Required = True
    end
    object IB_RESERVASQUARTOSFORPAGCODIGO: TIntegerField
      FieldName = 'FORPAGCODIGO'
      Required = True
    end
    object IB_RESERVASQUARTOSHOTCODIGO: TIntegerField
      FieldName = 'HOTCODIGO'
      Required = True
    end
    object IB_RESERVASQUARTOSCLICODIGO: TIntegerField
      FieldName = 'CLICODIGO'
      Required = True
    end
    object IB_RESERVASQUARTOSFUNCODIGO: TIntegerField
      FieldName = 'FUNCODIGO'
      Required = True
    end
    object IB_RESERVASQUARTOSRESDESCRICAO: TIBStringField
      FieldName = 'RESDESCRICAO'
      Size = 60
    end
    object IB_RESERVASQUARTOSRESDATA: TDateField
      FieldName = 'RESDATA'
    end
    object IB_RESERVASQUARTOSRESDTAINICIO: TDateField
      FieldName = 'RESDTAINICIO'
    end
    object IB_RESERVASQUARTOSRESDTAFIM: TDateField
      FieldName = 'RESDTAFIM'
    end
    object IB_RESERVASQUARTOSRESSTATUS: TIBStringField
      FieldName = 'RESSTATUS'
      Size = 1
    end
  end
  object IB_TIPOSITENS: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'TIPITECODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'TIPITEDESCRICAO'
        DataType = ftWideString
        Size = 60
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY11'
        Fields = 'TIPITECODIGO'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'TIPOS_ITENS'
    Left = 288
    Top = 448
    object IB_TIPOSITENSTIPITECODIGO: TIntegerField
      FieldName = 'TIPITECODIGO'
      Required = True
    end
    object IB_TIPOSITENSTIPITEDESCRICAO: TIBStringField
      FieldName = 'TIPITEDESCRICAO'
      Size = 60
    end
  end
  object IB_TIPOSQUARTOS: TIBTable
    Database = Conexao
    Transaction = Transacao
    FieldDefs = <
      item
        Name = 'TIPQCODIGO'
        Attributes = [faRequired]
        DataType = ftInteger
      end
      item
        Name = 'TIPQDESCRICAO'
        DataType = ftWideString
        Size = 60
      end>
    IndexDefs = <
      item
        Name = 'RDB$PRIMARY8'
        Fields = 'TIPQCODIGO'
        Options = [ixPrimary, ixUnique]
      end>
    StoreDefs = True
    TableName = 'TIPOS_QUARTO'
    Left = 392
    Top = 448
    object IB_TIPOSQUARTOSTIPQCODIGO: TIntegerField
      FieldName = 'TIPQCODIGO'
      Required = True
    end
    object IB_TIPOSQUARTOSTIPQDESCRICAO: TIBStringField
      FieldName = 'TIPQDESCRICAO'
      Size = 60
    end
  end
  object IB_SQL: TIBSQL
    Database = Conexao
    Transaction = Transacao
    Left = 536
    Top = 392
  end
end
